/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Advanced_Math_Samples / csolve

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 04 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 12 31 30 20 20 20 20 | 43 4c 45 41 52 20 53 43 |..10    |CLEAR SC|
|00000110| 52 45 45 4e 00 31 32 30 | 20 20 20 20 4c 4f 41 44 |REEN.120|    LOAD|
|00000120| 53 55 42 20 43 73 6f 6c | 76 65 20 46 52 4f 4d 20 |SUB Csol|ve FROM |
|00000130| 22 2e 2e 5c 6d 61 74 68 | 6c 69 62 5c 63 73 6f 6c |"..\math|lib\csol|
|00000140| 76 65 2e 68 74 73 22 00 | 00 13 33 30 20 20 20 20 |ve.hts".|..30    |
|00000150| 4f 50 54 49 4f 4e 20 42 | 41 53 45 20 31 00 00 19 |OPTION B|ASE 1...|
|00000160| 34 30 20 20 20 20 43 4f | 4d 50 4c 45 58 20 41 28 |40    CO|MPLEX A(|
|00000170| 33 2c 33 29 2c 43 28 33 | 29 00 00 31 35 30 20 20 |3,3),C(3|)..150  |
|00000180| 20 20 44 41 54 41 20 34 | 2c 20 32 2c 20 2d 31 2c |  DATA 4|, 2, -1,|
|00000190| 20 32 2c 20 2d 33 2c 20 | 33 2c 20 31 2c 20 31 2c | 2, -3, |3, 1, 1,|
|000001a0| 20 2d 32 2c 20 35 2c 20 | 33 2c 20 2d 33 00 00 0d | -2, 5, |3, -3...|
|000001b0| 36 30 20 20 20 20 52 45 | 53 54 4f 52 45 00 00 2c |60    RE|STORE..,|
|000001c0| 37 30 20 21 20 46 6f 72 | 6d 61 74 20 28 46 6d 74 |70 ! For|mat (Fmt|
|000001d0| 29 20 66 6f 72 20 73 70 | 65 63 69 66 69 65 64 20 |) for sp|ecified |
|000001e0| 6d 61 74 72 69 78 20 28 | 33 78 33 29 00 30 38 30 |matrix (|3x3).080|
|000001f0| 20 46 6d 74 33 78 33 3a | 20 20 49 4d 41 47 45 20 | Fmt3x3:|  IMAGE |
|00000200| 33 28 22 5b 22 2c 33 44 | 2e 44 2c 33 44 2e 44 2c |3("[",3D|.D,3D.D,|
|00000210| 33 44 2e 44 2c 20 22 20 | 20 5d 22 2c 2f 29 00 26 |3D.D, " | ]",/).&|
|00000220| 39 30 20 56 65 63 74 6f | 72 3a 20 20 49 4d 41 47 |90 Vecto|r:  IMAG|
|00000230| 45 20 22 5b 22 2c 33 44 | 2c 33 44 2c 33 44 2c 22 |E "[",3D|,3D,3D,"|
|00000240| 20 20 5d 22 2c 2f 00 12 | 31 30 30 20 20 20 43 4c |  ]",/..|100   CL|
|00000250| 45 41 52 20 53 43 52 45 | 45 4e 00 12 31 31 30 20 |EAR SCRE|EN..110 |
|00000260| 20 20 46 4f 52 20 58 3d | 31 20 54 4f 20 33 00 14 |  FOR X=|1 TO 3..|
|00000270| 31 32 30 20 20 20 20 20 | 46 4f 52 20 59 3d 31 20 |120     |FOR Y=1 |
|00000280| 54 4f 20 33 00 11 31 33 | 30 20 20 20 20 20 20 20 |TO 3..13|0       |
|00000290| 52 45 41 44 20 41 78 00 | 00 1c 31 34 30 20 20 20 |READ Ax.|..140   |
|000002a0| 20 20 20 20 41 28 58 2c | 59 29 3d 43 4d 50 4c 58 |    A(X,|Y)=CMPLX|
|000002b0| 28 41 78 2c 30 29 00 0e | 31 35 30 20 20 20 20 20 |(Ax,0)..|150     |
|000002c0| 4e 45 58 54 20 59 00 0c | 31 36 30 20 20 20 4e 45 |NEXT Y..|160   NE|
|000002d0| 58 54 20 58 00 15 31 37 | 30 20 20 20 46 4f 52 20 |XT X..17|0   FOR |
|000002e0| 4c 6f 6f 70 3d 31 20 54 | 4f 20 33 00 00 0f 31 38 |Loop=1 T|O 3...18|
|000002f0| 30 20 20 20 20 20 52 45 | 41 44 20 43 78 00 00 1b |0     RE|AD Cx...|
|00000300| 31 39 30 20 20 20 20 20 | 43 28 4c 6f 6f 70 29 3d |190     |C(Loop)=|
|00000310| 43 4d 50 4c 58 28 43 78 | 2c 30 29 00 00 0f 32 30 |CMPLX(Cx|,0)...20|
|00000320| 30 20 20 20 4e 45 58 54 | 20 4c 6f 6f 70 00 00 16 |0   NEXT| Loop...|
|00000330| 32 31 30 20 20 20 50 52 | 49 4e 54 20 22 4d 61 74 |210   PR|INT "Mat|
|00000340| 72 69 78 20 61 22 00 1d | 32 32 30 20 20 20 50 52 |rix a"..|220   PR|
|00000350| 49 4e 54 20 55 53 49 4e | 47 20 46 6d 74 33 78 33 |INT USIN|G Fmt3x3|
|00000360| 3b 41 28 2a 29 00 00 0c | 32 33 30 20 20 20 57 41 |;A(*)...|230   WA|
|00000370| 49 54 20 32 00 46 32 34 | 30 20 20 20 50 52 49 4e |IT 2.F24|0   PRIN|
|00000380| 54 20 22 56 65 63 74 6f | 72 20 63 22 20 20 20 20 |T "Vecto|r c"    |
|00000390| 20 20 20 20 20 21 20 4e | 6f 74 65 3a 20 66 6f 72 |     ! N|ote: for|
|000003a0| 20 74 68 69 73 20 65 78 | 61 6d 70 6c 65 2c 20 74 | this ex|ample, t|
|000003b0| 68 65 20 76 65 63 74 6f | 72 20 69 73 00 37 32 35 |he vecto|r is.725|
|000003c0| 30 20 20 20 50 52 49 4e | 54 20 55 53 49 4e 47 20 |0   PRIN|T USING |
|000003d0| 56 65 63 74 6f 72 3b 43 | 28 2a 29 21 20 70 72 69 |Vector;C|(*)! pri|
|000003e0| 6e 74 65 64 20 61 73 20 | 61 20 72 6f 77 20 76 65 |nted as |a row ve|
|000003f0| 63 74 6f 72 2e 00 00 0c | 32 36 30 20 20 20 57 41 |ctor....|260   WA|
|00000400| 49 54 20 32 00 2c 32 37 | 30 20 20 20 50 52 49 4e |IT 2.,27|0   PRIN|
|00000410| 54 20 22 56 65 63 74 6f | 72 20 62 20 3d 20 4d 61 |T "Vecto|r b = Ma|
|00000420| 74 72 69 78 20 61 20 2a | 20 56 65 63 74 6f 72 20 |trix a *| Vector |
|00000430| 63 22 00 1c 32 38 30 20 | 20 20 43 41 4c 4c 20 43 |c"..280 |  CALL C|
|00000440| 73 6f 6c 76 65 28 41 28 | 2a 29 2c 43 28 2a 29 29 |solve(A(|*),C(*))|
|00000450| 00 1d 32 39 30 20 20 20 | 50 52 49 4e 54 20 55 53 |..290   |PRINT US|
|00000460| 49 4e 47 20 56 65 63 74 | 6f 72 3b 43 28 2a 29 00 |ING Vect|or;C(*).|
|00000470| 00 13 33 30 30 20 20 20 | 44 45 4c 53 55 42 20 43 |..300   |DELSUB C|
|00000480| 73 6f 6c 76 65 00 00 09 | 33 31 30 20 20 20 45 4e |solve...|310   EN|
|00000490| 44 00 00 2f 33 32 30 20 | 20 20 21 2a 20 43 53 55 |D../320 |  !* CSU|
|000004a0| 42 20 43 73 6f 6c 76 65 | 28 43 4f 4d 50 4c 45 58 |B Csolve|(COMPLEX|
|000004b0| 20 41 28 2a 29 2c 43 4f | 4d 50 4c 45 58 20 5a 28 | A(*),CO|MPLEX Z(|
|000004c0| 2a 29 29 00 ff ff       |                         |*))...  |        |
+--------+-------------------------+-------------------------+--------+--------+